(normal-top-level-add-to-load-path):

Use directory-file-name since load-path elements don't end in /.

diff --git a/lisp/startup.el b/lisp/startup.el
index a3aafc7454fc5bd5a578eeb47d89469a89a39e9c..69642d82ac4a75a6026be6681781d400776fc65d 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -304,7 +304,7 @@ from being initialized.")
 
 ;; This function is called from the subdirs.el file.
 (defun normal-top-level-add-to-load-path (dirs)
-  (let ((tail (member default-directory load-path)))
+  (let ((tail (member (directory-file-name default-directory) load-path)))
     (setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail)))))
 
 (defun normal-top-level ()